﻿'<REMA Tool is a open source Tool for Game Downloader a lightweight download client for games.>
'    Copyright (C) <2011>  <Dev-fire>

'    This program is free software: you can redistribute it and/or modify
'    it under the terms of the GNU General Public License as published by
'    the Free Software Foundation, either version 3 of the License, or
'    (at your option) any later version.

'    This program is distributed in the hope that it will be useful,
'    but WITHOUT ANY WARRANTY; without even the implied warranty of
'    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'    GNU General Public License for more details.

'    You should have received a copy of the GNU General Public License
'    along with this program.  If not, see <http://www.gnu.org/licenses/>.
Public Class HTML
    'Closing
    Private Sub HTML_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'Dont Allow Closing
        Me.Hide()
        e.Cancel = True
    End Sub
    'Save HTML Page
    Private Sub SaveHTMLPageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveHTMLPageToolStripMenuItem.Click
        Data.Save_HTML_2()
    End Sub
    'Copy HTML To Clipboard
    Private Sub CopyUpdatedGameHTMLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyUpdatedGameHTMLToolStripMenuItem.Click
        My.Computer.Clipboard.SetText(TextBox_Updated_OS_HTML.Text)
        Main.NotifyIcon_Main.BalloonTipText = "Copied to clipboard."
        Main.NotifyIcon_Main.ShowBalloonTip(1500)
    End Sub
    'Copy Games HTML
    Private Sub CopyGamesHTMLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyGamesHTMLToolStripMenuItem.Click
        My.Computer.Clipboard.SetText(TextBox_OS_HTML.Text)
        Main.NotifyIcon_Main.BalloonTipText = "Copied to clipboard."
        Main.NotifyIcon_Main.ShowBalloonTip(1500)
    End Sub
    '
    'TabPage Entered
    '
    'TabPage "HTML Page" Entered
    Private Sub TabPage1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabPage1.Enter
        Me.Width = 885
        Me.Height = 620
    End Sub
    'TabPage "Updated Game HTML" Entered
    Private Sub TabPage2_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabPage2.Enter
        Me.Width = 885
        Me.Height = 160
    End Sub
    'TabPage "Games.html" Entered
    Private Sub TabPage3_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabPage3.Enter
        Me.Width = 885
        Me.Height = 160
    End Sub
End Class